home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc2
/
getvr400.lha
/
GetVer
/
Install
< prev
next >
Wrap
Text File
|
1996-02-03
|
8KB
|
297 lines
; $VER: GetVer Install 1, Copyright © 1995 by J. Schuchardt
(set #badkick
(cat
"\n\nGetVer only works with OS 2.04 or higher!\n\n"
"Installation aborted!\n"
)
)
(set #introduction
(cat
"GetVer 4.00 Copyright © 1992-1995 by J. Schuchardt\n"
"_____\n\n"
"GetVer is SHAREWARE! If you still use it after a \n"
"short period of testing, you have to register. \n"
"For details please read the hints in the manual file\n"
"\"GetVer.guide\". With installing the software you \n"
"agree with the conditions pointed out there. \n"
" Thank you. \n"
)
)
(set #icon_note
(cat
"GetVer 4.00 Copyright © 1992-1995 by J. Schuchardt\n"
"_____\n\n"
"Note: \n"
"If you want to install one of the MagicWB icons \n"
"you will have to choose that icon BEFORE you run \n"
"the installation software. To select an icon please\n"
"open the \"MWB-Icons\" drawer and doubleklick the \n"
"desired icon. It will then appear in the GetVer \n"
"window as the program icon. \n"
"If you have not yet chosen an icon but want to \n"
"install one, please cancel the installation now and\n"
"choose an icon. \n"
"Otherwise continue the installation. \n"
)
)
(set #where "Where would you like GetVer to be installed?")
(set #where_help
(cat
"The directory given here is the path where GetVer \n"
"and all desired files that come along with the \n"
"GetVer package will be installed. \n"
"NO subdirectory will be generated! \n"
)
)
(set #copying "\nCopying file(s)...\n")
(set #what "What files would you like to have installed additionally?")
(set #what_help
(cat
"In addition to the program file \"GetVer\" there can \n"
"also be installed the program icon, the documen- \n"
"tation guide file and the history file. All this \n"
"files are not necessarily needed to make GetVer \n"
"work. But there are advantages in installing them: \n"
" · GetVer.info makes workbench start possible; \n"
" is used as the image pattern for\n"
" the appicon; tooltypes are used \n"
" as default setting for GetVer \n"
" · GetVer.guide documentation guide file \n"
" · GetVer.history history; may be read from the \n"
" documentation \n"
)
)
(set #catalog "What languages would you like to have installed?")
(set #catalog_help
(cat
"Herewith you decide what languages the program can \n"
"\"speak\". \n"
"German is the default language. To use it no file \n"
"has to be copied. All other languages are available \n"
"as catalog files which will be copied into the \n"
"corresponding path in \"SYS:Locale/Catalogs/\". \n"
)
)
(if (= @language "deutsch") (
; --- German strings ---
(set #badkick
(cat
"\n\nGetVer läuft nur unter OS 2.04 oder höher!\n\n"
"Installation abgebrochen!\n"
)
)
(set #introduction
(cat
"GetVer 4.00 Copyright © 1992-1995 by J. Schuchardt\n"
"_____\n\n"
"GetVer ist SHAREWARE! Wenn Sie es nach einer kurzen \n"
"Testphase weiterhin benutzen, müssen Sie sich \n"
"registrieren lassen. Lesen Sie dazu bitte die \n"
"Hinweise in \"GetVer.guide\". Mit der Installation \n"
"stimmen Sie den dort genannten Bedingungen zu. \n"
" Danke. \n"
)
)
(set #icon_note
(cat
"GetVer 4.00 Copyright © 1992-1995 by J. Schuchardt\n"
"_____\n\n"
"Hinweis: \n"
"Wenn Sie eines der MagicWB-Icons installieren \n"
"möchten, dann müssen Sie VOR der Installation das \n"
"gewünschte Icon auswählen. Öffnen Sie dazu die \n"
"Schublade \"MWB-Icons\" und klicken Sie das gewünsch-\n"
"te Icon doppelt an. Es erscheint daraufhin auch im \n"
"GetVer-Window als Programmicon. \n"
"Wenn Sie noch kein MagicWB-Icon ausgewählt haben, \n"
"aber eines installieren möchten, dann brechen Sie \n"
"die Installation jetzt ab und wählen Sie ein Icon. \n"
"Ansonsten fahren Sie mit der Installation fort. \n"
)
)
(set #where "In welchem Pfad soll GetVer installiert werden?")
(set #where_help
(cat
"Das hier angegebene Directory ist das Verzeichnis, \n"
"in dem GetVer und alle gewünschten Zusatzdateien \n"
"installiert werden. \n"
"Es wird KEIN Unterverzeichnis erzeugt! \n"
)
)
(set #copying "\nKopiere Datei(en)...\n")
(set #what "Welche Dateien sollen zusätzlich installiert werden?")
(set #what_help
(cat
"Neben der Programmdatei \"GetVer\" können wahlweise \n"
"auch noch das Programmicon, die Anleitung im Guide- \n"
"Format und die History-Datei installiert werden. All\n"
"diese Dateien sind nicht zwingend zum Funktionieren \n"
"von GetVer erforderlich. Ihre Installation hat aber \n"
"Vorteile: \n"
" · GetVer.info ermöglicht das Ausführen von der\n"
" Workbench aus; ist Bildvorlage \n"
" für das AppIcon; Tooltypes \n"
" dienen als Voreinstellung \n"
" · GetVer.guide Dokumentation im Guide-Format \n"
" · GetVer.history Entstehungsgeschichte; kann aus \n"
" der Dokumentation gelesen werden\n"
)
)
(set #catalog "Welche Sprachen sollen installiert werden?")
(set #catalog_help
(cat
"Hiermit bestimmen Sie, welche der verfügbaren \n"
"Sprachen das Programm beherrschen soll. \n"
"Deutsch ist die Standardsprache. Hierfür wird kein \n"
"File kopiert. Alle anderen Sprachen liegen als \n"
"Catalog-Dateien vor, die in das entsprechende Ver- \n"
"zeichnis in \"SYS:Locale/Catalogs/\" kopiert werden. \n"
)
)
))
; --- main installation routine ---
(if (< (/ (getversion) 65536) 37)
( (message #badkick)
(exit (quiet))
)
)
(complete 0)
(message #introduction)
(message #icon_note)
(welcome)
(set language 0)
(if (= @language "english") (set language 1))
(if (= @language "português") (set language 2))
(set @default-dest "")
(set target
(askdir
(prompt #where)
(help #where_help)
(default "RAM:")
)
)
(set @default-dest target)
(copyfiles
(prompt #copying)
(source "/GetVer")
(dest target)
(nogauge)
)
(complete 45)
(set what_file
(askoptions
(prompt #what)
(help #what_help)
(choices
" GetVer.info"
" GetVer.guide"
" GetVer.guide.info"
" GetVer.history"
" GetVer.history.info"
)
(default 11)
)
)
(set n 1)
(while (<= n 5)
(set copy (if (bitand what_file (select n 0 1 2 4 8 16)) n 0))
(if copy
(copyfiles
(prompt #copying)
(source
(select copy
""
"/GetVer.info"
"GetVer.guide"
"GetVer.guide.info"
"GetVer.history"
"GetVer.history.info"
)
)
(dest target)
(files)
(nogauge)
)
)
(set n (+ n 1))
)
(complete 92)
(set what_cat
(askoptions
(prompt #catalog)
(help #catalog_help)
(choices
" English"
" Português"
)
(default language)
)
)
(set n 1)
(while (<= n 2)
(set copy (if (bitand what_cat (select n 0 1 2)) n 0))
(if copy
(copyfiles
(prompt #copying)
(source
(tackon
(select copy
""
"/Catalogs/English"
"/Catalogs/Português"
)
"GetVer.catalog"
)
)
(dest
(tackon "SYS:Locale/Catalogs/"
(select copy
""
"English"
"Português"
)
)
)
(files)
(nogauge)
)
)
(set n (+ n 1))
)
(complete 100)